home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / utilities / print / pspager.lha / psp / psp_setup.ps < prev    next >
Encoding:
Text File  |  1994-04-16  |  1.6 KB  |  74 lines
  1. #include <psp_adobe.ps>
  2. % PORTRAIT (PSP_1_PER_PAGE, PSP_4_PER_PAGE)
  3. % LANDSCAPE (PSP_2_PER_PAGE)
  4. #ifdef PSP_2_PER_PAGE
  5. #define LANDSCAPE
  6. #else
  7. #define PORTRAIT
  8. #endif
  9. /currentpacking where {pop sc_oldpacking setpacking}if
  10. end        % md
  11. %%EndProlog
  12. %%BeginSetup
  13. md begin
  14. countdictstack
  15. [
  16. {%stopped
  17. %%BeginFeature: *ManualFeed False
  18. level2 {1 dict dup /ManualFeed false put setpagedevice}{statusdict begin /manualfeed false store end} ifelse
  19. %%EndFeature
  20. }featurecleanup
  21. countdictstack
  22. [
  23. {%stopped
  24. %%BeginFeature: *InputSlot Upper
  25.  
  26. %%EndFeature
  27. }featurecleanup
  28. #ifdef PORTRAIT
  29. countdictstack
  30. [
  31. {%stopped
  32. %%BeginFeature: *PageRegion LetterSmall
  33. level2 {
  34.     2 dict dup /PageSize [612 792] put dup /ImagingBBox null put setpagedevice
  35.   }{
  36.     /lettersmall where {pop lettersmall} {letterR} ifelse
  37.   } ifelse
  38. %%EndFeature
  39. }featurecleanup
  40. (pspager)setjob
  41. /pT[1 0 0 -1 30 761]def/mT[1 0 0 -1 30 761]def
  42. #else
  43. (pspager)setjob
  44. /pT[1 0 0 -1 28 811]def/mT 90 $m rotate[1 0 0 -1 566 811]matrix concatmatrix def
  45. /por F def
  46. #endif
  47. /sD 16 dict def
  48. 300 level2{1 dict dup/WaitTimeout 4 -1 roll put setuserparams}{statusdict/waittimeout 3 -1 roll put}ifelse
  49. #ifdef PSP_1_PER_PAGE
  50. %%IncludeFont: Courier-Bold
  51. #else
  52. %%IncludeFont: Helvetica
  53. %%IncludeFont: Helvetica-Bold
  54. #endif
  55. %%IncludeFont: Courier
  56. #ifdef PSP_1_PER_PAGE
  57. /f0_1/Courier-Bold :mre
  58. /f1_1 f0_1 1.2 scf
  59. /f1_9 f1_1 9 scf
  60. /f2_1/Courier :mre
  61. /f3_1 f2_1 1.2 scf
  62. /f3_9 f3_1 9 scf
  63. #else
  64. /f0_1/Helvetica :mre
  65. /f0_12 f0_1 12 scf
  66. /f1_1/Helvetica-Bold :mre
  67. /f1_12 f1_1 12 scf
  68. /f2_1/Courier :mre
  69. /f2_5 f2_1 5 scf
  70. /f2_7 f2_1 7 scf
  71. #endif
  72. /Courier findfont[10 0 0 -10 0 0]:mf setfont
  73. %%EndSetup
  74.